﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class Traspasos1Fact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As Traspasos1BE
        Dim tmpTraspasos1 As Traspasos1BE = New Traspasos1BE()
        Try
            With tmpTraspasos1
                .Destino = convertDTFromDb.ConvertShort(dr.Item("Destino"))
                .Fecha = convertDTFromDb.convertDateTime(dr.Item("Fecha"))
                .IdEmpresa = convertDTFromDb.ConvertShort(dr.Item("IdEmpresa"))
                .IdTraspaso = convertDTFromDb.convertInt32(dr.Item("IdTraspaso"))
                .NumTrasp = convertDTFromDb.convertInt32(dr.Item("NumTrasp"))
                .Obs = convertDTFromDb.ConvertString(dr.Item("Obs"))
                .Origen = convertDTFromDb.ConvertShort(dr.Item("Origen"))
                .Periodo = convertDTFromDb.convertInt32(dr.Item("Periodo"))
                .Status = convertDTFromDb.ConvertString(dr.Item("Status"))
                .Usuario = convertDTFromDb.ConvertString(dr.Item("Usuario"))
            End With
            Return tmpTraspasos1
        Catch ex As Exception
            Throw
        Finally
            tmpTraspasos1 = Nothing
        End Try
    End Function
End Class
